From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 25 Dec 2010 17:19:57 +0000 (+0200)
Subject: Fix bug #7662 with aligning key bindings equivalent to menu items.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18^2~181
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a3b5f2fd5f757b379728a7d770c187c03cd9d0d6;p=emacs.git

Fix bug #7662 with aligning key bindings equivalent to menu items.

 keyboard.c (parse_menu_item): Prepend "  " to the key sequence
 equivalent of a menu item when the key sequence is given by the
 `:keys' attribute.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9f52c8e0e30..e357a902bb4 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2010-12-25  Eli Zaretskii  <eliz@gnu.org>
 
+	* keyboard.c (parse_menu_item): Prepend "  " to the key sequence
+	equivalent of a menu item when the key sequence is given by the
+	`:keys' attribute.  (Bug#7662)
+
 	* xdisp.c (Fformat_mode_line): Doc fix: no need to state that only
 	the basic faces are supported.
 
diff --git a/src/keyboard.c b/src/keyboard.c
index b027b3b09e6..50385937281 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8193,7 +8193,7 @@ parse_menu_item (item, inmenubar)
     /* The previous code preferred :key-sequence to :keys, so we
        preserve this behavior.  */
     if (STRINGP (keyeq) && !CONSP (keyhint))
-      keyeq = Fsubstitute_command_keys (keyeq);
+      keyeq = concat2 (build_string ("  "), Fsubstitute_command_keys (keyeq));
     else
       {
 	Lisp_Object prefix = keyeq;